ifStr @rec="NOTE"
  if printing
    hideexcess
  else if #msgnum>0
    ! use separate pane when not printing
    cell EditPane,"("&local("type to enter notes")&")"
    #fraction=#msg
    if #fraction<.5
      #fraction=.5
    endif
    position lowercase(#posNotes)
    fraction #fraction
    cellBackground "Editing Background"
    help local("Enter free-format notes")
  else
     newline
     cell static,"Extra Text (should be copied to main notes text)"
     sizetofit
     newline
     cell EditField
     set maxheight 150 width -1
     sizetofit
  endif

else
  use _Unknown_
endif
